|
5
|
How do I put a picture on the control's background
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComVisiblePart OLEexBackgroundPart to False
Set ComBackColor to |CI$80000004
End_Procedure
|
|
4
|
How can I change the size of control's font
Procedure OnCreate
Forward Send OnCreate
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to 12
Send Destroy to hoStdFont
Set ComForeColor to (RGB(255,0,0))
Set ComCaption OLEexThumbPart to "<img>0</img>thumb"
End_Procedure
|
|
3
|
How do I change the control's font
Procedure OnCreate
Forward Send OnCreate
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Tahoma"
Send Destroy to hoStdFont
Set ComForeColor to (RGB(255,0,0))
Set ComCaption OLEexThumbPart to "<img>0</img>thumb"
End_Procedure
|
|
2
|
How can I change the control's foreground color
Procedure OnCreate
Forward Send OnCreate
Set ComForeColor to (RGB(255,0,0))
Set ComCaption OLEexThumbPart to "<img>0</img>thumb"
End_Procedure
|
|
1
|
How can I change the control's background color
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(0,255,0))
Set ComVisiblePart OLEexBackgroundPart to False
End_Procedure
|